home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / cad / mar93cad.zip / TIP854B.LSP < prev    next >
Text File  |  1993-02-13  |  625b  |  28 lines
  1. ; TIP854B: MLO.LSP (c)1993, Bernd Hoffman
  2.  
  3. (Defun C:MLO (/ SS EN ED LA)
  4.    (Setvar "CMDECHO" 0)
  5.    (Princ
  6.       "Turn multiple layers off."
  7.    )
  8.    (Setq SS (SsGet))
  9.    (While (> (SsLength SS) 0)
  10.          (Setq
  11.             EN (SsName SS 0)
  12.             ED (EntGet EN)
  13.             LA (CDR (Assoc 8 ED))
  14.          )
  15.          (If (/= LA (GetVar "CLAYER"))
  16.                (Command
  17.                   ".LAYER" "OFF" LA ""
  18.                )
  19.             (Prompt
  20.                "\nCurrent layer will not be turned off!"
  21.             )
  22.          )
  23.          (SsDel EN SS)
  24.    )
  25.    (Setvar "CMDECHO" 1)
  26.    (Princ)
  27. )
  28.